Declare Sub ShowAbout()include "form1.frm"sub main()	frmMain.show()end subsub ShowAbout()	dim s as string     s = "About Jose"     msgbox(s)end sub